home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xfcn / menus.sit / Menus For HyperCard™ / card_4962.txt < prev    next >
Encoding:
Text File  |  1987-10-30  |  3.4 KB  |  155 lines
  1. -- card: 4962 from stack: in
  2. -- bmap block id: 2246
  3. -- flags: 0000
  4. -- background id: 3001
  5. -- name: Index Card
  6. ----- HyperTalk script -----
  7. on mouseDown
  8.   get short name of target
  9.   if it is not "Index Card" then
  10.     visual effect zoom out
  11.     go to card it
  12.   end if
  13. end mouseDown
  14.  
  15.  
  16.  
  17. -- part 1 (button)
  18. -- low flags: 00
  19. -- high flags: 8002
  20. -- rect: left=310 top=45 right=68 bottom=464
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 1
  24. -- font id: 0
  25. -- text size: 12
  26. -- style flags: 0
  27. -- line height: 16
  28. -- part name: NewMenu
  29.  
  30.  
  31. -- part 3 (button)
  32. -- low flags: 00
  33. -- high flags: 8002
  34. -- rect: left=310 top=74 right=96 bottom=464
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: DeleteMenu
  43.  
  44.  
  45. -- part 4 (button)
  46. -- low flags: 00
  47. -- high flags: 8002
  48. -- rect: left=310 top=102 right=126 bottom=464
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: EnableMenu
  57.  
  58.  
  59. -- part 5 (button)
  60. -- low flags: 00
  61. -- high flags: 8002
  62. -- rect: left=310 top=133 right=156 bottom=465
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 1
  66. -- font id: 0
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: CheckMenu
  71.  
  72.  
  73. -- part 6 (button)
  74. -- low flags: 00
  75. -- high flags: 8002
  76. -- rect: left=310 top=191 right=215 bottom=465
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: ShowMenu
  85.  
  86.  
  87. -- part 9 (button)
  88. -- low flags: 00
  89. -- high flags: 8002
  90. -- rect: left=13 top=302 right=328 bottom=168
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Return To Title Page
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   visual effect dissolve
  102.   go to card "Title Page"
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 11 (button)
  108. -- low flags: 00
  109. -- high flags: 0000
  110. -- rect: left=215 top=248 right=313 bottom=416
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: 
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   get FileName("STAK")
  122.   if it is not empty then copyCommands it
  123. end mouseUp
  124.  
  125. on copyCommands toStack
  126.   put the value of word 2 of long name of this stack into fromStack
  127.   answer "Copy to " & quote & toStack & quote & " ?" with "CANCEL" or "OK"
  128.   if it is "OK" then
  129.     set cursor to 4
  130.     ModResCopy fromStack,toStack,"XFCN","NewMenu"
  131.     ModResCopy fromStack,toStack,"XFCN","DeleteMenu"
  132.     ModResCopy fromStack,toStack,"XCMD","EnableMenu"
  133.     ModResCopy fromStack,toStack,"XCMD","CheckMenu"
  134.     ModResCopy fromStack,toStack,"XCMD","ChangeMenu"
  135.     ModResCopy fromStack,toStack,"XCMD","ShowMenu"
  136.     set cursor to 1
  137.     answer "Copy finished!" with "OK"
  138.   end if
  139. end copyCommands
  140.  
  141.  
  142.  
  143. -- part 13 (button)
  144. -- low flags: 00
  145. -- high flags: 8002
  146. -- rect: left=310 top=162 right=185 bottom=465
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: ChangeMenu
  155.